﻿<!--#include file="conn.asp"#-->
<!--#include file="sessao.asp"#-->
<!--#include file="getsessao.asp"#-->
<!--#include file="fn_combo.asp"#-->
<!--#include file="fn_table.asp"#-->
<%
Select Case request("do")
	Case "getInformacao"
		getInformacao()
	Case "getUsuarios"
		getUsuarios()
	Case "getUsuariosEditar"
		getUsuariosEditar()				
End Select



Sub getInformacao()
	Dim db_string
	Dim rsInformativo
	if request("cod_informativo") <> "" then

		db_string = "SELECT total_contatos,"
		db_string = db_string & "        assunto,"
		db_string = db_string & "        dt_agendamento_envio,"
		db_string = db_string & "        titulo,"
		db_string = db_string & "        total_contatos,"
		db_string = db_string & "        enviado,"
		db_string = db_string & "        lido,"
		db_string = db_string & "        erro,"
		db_string = db_string & "        percentual_enviado,"
		db_string = db_string & "        percentual_visualizado,"
		db_string = db_string & "        percentual_nao_visualizado,"
		db_string = db_string & "        percentual_erro"
		db_string = db_string & " FROM   informativos.vw_relatorios_informativos"
		db_string = db_string & " WHERE cod_informativo = "&Request("cod_informativo")


		set rsInformativo = getRs(db_string)
		if not rsInformativo.eof then
			retorno = "{success : true, data: {"
			retorno = retorno & "'dt_agendamento':'"&rsInformativo("dt_agendamento_envio")&"' ,"
			retorno = retorno & "'assunto':'"&rsInformativo("assunto")&"' ,"
			retorno = retorno & "'titulo':'"&rsInformativo("titulo")&"' ,"
			retorno = retorno & "'qtd_contatos':'"&rsInformativo("total_contatos")&"' ,"
		    retorno = retorno & "'percentual_enviado':'"&rsInformativo("percentual_enviado")&"' ,"
		    retorno = retorno & "'percentual_visualizado':'"&rsInformativo("percentual_visualizado")&"' ,"
		    retorno = retorno & "'percentual_nao_visualizado':'"&rsInformativo("percentual_nao_visualizado")&"' ,"
		    retorno = retorno & "'percentual_erro':'"&rsInformativo("percentual_erro")&"' ,"
		    retorno = retorno & "'percentual_enviado':'"&rsInformativo("percentual_enviado")&"' }"
			retorno = retorno & "}"
		End If
		rsInformativo.close
	End If
	set rsInformativo = nothing
	response.write retorno
End Sub

Sub getUsuarios()
	Dim db_string
	db_string = "SELECT u.nome [Nome]," 
	db_string = db_string & "       u.matricula [Matricula],"
	db_string = db_string & "       ei.email [E-mail]"
	db_string = db_string & " FROM   informativos.tb_informativos AS i"
	db_string = db_string & "       INNER JOIN informativos.tb_envio_informativos AS ei"
	db_string = db_string & "               ON i.cod_informativo = ei.cod_informativo"
	db_string = db_string & "       INNER JOIN informacao.tb_usuarios AS u"
	db_string = db_string & "               ON u.cod_usuario = ei.cod_usuario"
	db_string = db_string & " WHERE i.cod_informativo = "&request("cod_informativo")
	if request("condicao") <> "" then
		db_string = db_string & request("condicao")
	end if
	db_string = db_string & " ORDER BY u.nome"

	Dim pg_sel
	if request("pg_sel") = "" then
		pg_sel = 1
	else
		pg_sel = cdbl(request("pg_sel"))
	end if

	response.write Table("list", db_string, "tabela", true, pg_sel, 10, "getUsuarios('"&request("condicao")&"','"&request("obj_sel")&"',!@#)")	
End Sub

Sub getUsuariosEditar()
	Dim db_string
	db_string = "SELECT u.nome [Nome]," 
	db_string = db_string & "       u.matricula [Matricula],"
	db_string = db_string & "       ei.email [E-mail],"
	db_string = db_string & " '<a href=''#'' class=''botao ico'' onclick=''return getEditarUsuario('+convert(varchar,u.cod_usuario)+',""'+convert(varchar,u.email)+'"");''><span class=''edit''></span></a> ' "
	db_string = db_string & " as [Ações] "	
	db_string = db_string & " FROM   informativos.tb_informativos AS i"
	db_string = db_string & "       INNER JOIN informativos.tb_envio_informativos AS ei"
	db_string = db_string & "               ON i.cod_informativo = ei.cod_informativo"
	db_string = db_string & "       INNER JOIN informacao.tb_usuarios AS u"
	db_string = db_string & "               ON u.cod_usuario = ei.cod_usuario"
	db_string = db_string & " WHERE i.cod_informativo = "&request("cod_informativo")
	if request("condicao") <> "" then
		db_string = db_string & request("condicao")
	end if
	db_string = db_string & " ORDER BY u.nome"

	Dim pg_sel
	if request("pg_sel") = "" then
		pg_sel = 1
	else
		pg_sel = cdbl(request("pg_sel"))
	end if

	response.write Table("list", db_string, "tabela", true, pg_sel, 10, "getUsuarios('"&request("condicao")&"','"&request("obj_sel")&"',!@#)")	
End Sub

%>
